program List;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  pelement=^element;
  element=record
    value: Integer;
    next: pelement;
  end;
var
  head: pelement;

begin
  New(head);
  head^.value:=5;
  New(head^.next);
  head^.next^.value:=6;
  New(head^.next^.next);
  head^.next^.next^.value:=6;
  head^.next^.next^.next:=nil;
end.
